Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/ruthie/openingf.frm

Text File | 1995-05-08 | 4KB | 109 lines

VERSION 2.00
Begin Form OpeningForm
   Caption         =   "RuthieWare"
   ClientHeight    =   3540
   ClientLeft      =   4500
   ClientTop       =   3915
   ClientWidth     =   6030
   Height          =   3945
   Left            =   4440
   LinkMode        =   1  'Source
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3540
   ScaleWidth      =   6030
   Top             =   3570
   Width           =   6150
   Begin PictureBox Picture1
      Height          =   3255
      Left            =   120
      ScaleHeight     =   3225
      ScaleWidth      =   5745
      TabIndex        =   0
      Top             =   120
      Width           =   5775
      Begin CommandButton Quit
         Caption         =   "Quit"
         Height          =   375
         Left            =   3960
         TabIndex        =   5
         Top             =   2640
         Width           =   1575
      End
      Begin CommandButton About
         Caption         =   "About Ruthie"
         Height          =   375
         Left            =   2040
         TabIndex        =   6
         Top             =   2640
         Width           =   1695
      End
      Begin CommandButton Start
         Caption         =   "Start"
         Height          =   375
         Left            =   240
         TabIndex        =   4
         Top             =   2640
         Width           =   1575
      End
      Begin TextBox Text2
         BorderStyle     =   0  'None
         Enabled         =   0   'False
         Height          =   1095
         Left            =   240
         MultiLine       =   -1  'True
         TabIndex        =   3
         Text            =   "Ruthie! helps develop simple mouse skills. There are several levels of play. Early levels focus on finding an object with the mouse. Higher levels involve drag-and-drop skills, as well as matching shapes, colors, and letters."
         Top             =   1440
         Width           =   5295
      End
      Begin TextBox Text1
         BorderStyle     =   0  'None
         Enabled         =   0   'False
         Height          =   735
         Left            =   2280
         MultiLine       =   -1  'True
         TabIndex        =   2
         Text            =   "Ruthie!  version 1.3b            Copyright ⌐ 1991 by John Murdoch.  All Rights Reserved."
         Top             =   600
         Width           =   3375
      End
      Begin PictureBox AppPicture
         BorderStyle     =   0  'None
         Height          =   1215
         Left            =   240
         Picture         =   OPENINGF.FRX:0000
         ScaleHeight     =   1215
         ScaleWidth      =   1815
         TabIndex        =   1
         Top             =   120
         Width           =   1815
      End
   End
End
Sub About_Click ()
    Open2.Show 1    '   Show Open2 as modal form
End Sub

Sub AppPicture_Click ()
    OpeningForm.Hide   '   Tuck this puppy away for now
    Ruthie.Show     '   Show them Game 1
End Sub

Sub Form_Load ()
    Top = (Screen.Height - Height) / 2  ' This centers the form on the monitor
    Left = (Screen.Width - Width) / 2
End Sub

Sub Quit_Click ()
    MsgBox "What? The opening frame wasn't pretty enough for you?", 32, "Leaving So Soon?"
    End
End Sub

Sub Start_Click ()
    OpeningForm.Hide   '   Tuck this puppy away for now
    Ruthie.Show     '   Show them Game 1
End Sub